$file2 = $ARGV[0];
open(BUFF2,$file2);
open(WRBUFF,">out_$file2");

while($line = <BUFF2>)
{
	if($line =~ m/Cell(\d+)/ && $line =~ m/control/)
	{
		@line = split("\t",$line);
		@liney = split("\=",$line[0]);
		
		if($line[7] eq $line[8])
		{	
			#	print WRBUFF $line[4]."\t".$line[5]."\t"."pm"."\t".$liney[1]."\t".$line[1]."\n";
			if($hi{$line[4]} ne "")
			{			
					$hi{$line[4]}++;
			}
			else
			{
				$hi{$line[4]} = 1;

			}
		}
	}
}
while (($key, $value) = each(%hi)){
	if($key =~ m/\;/)
	{
	}
	else
	{
     print WRBUFF $key."\t".$value."\n";
	}
}

